home *** CD-ROM | disk | FTP | other *** search
/ Art Fundamentals - Core Concepts in Art / Art Fundamentals: Core Concepts in Art.iso / pc / color.dxr / 00195.ls < prev    next >
Encoding:
Text File  |  2001-07-16  |  301 b   |  17 lines
  1. on mouseDown me
  2.   hideit(50, 50)
  3.   showit(56, 56)
  4. end
  5.  
  6. on mouseUp me
  7.   global r1, g1, b1, X, Y, squarecolor
  8.   squarecolor = "yellow"
  9.   r1 = 15 * Y
  10.   g1 = r1
  11.   b1 = X * 15 / 17 * Y
  12.   put sprite(32).color
  13.   sprite(32).color = rgb(r1, g1, b1)
  14.   hideit(56, 56)
  15.   set the memberNum of sprite 61 to 206
  16. end
  17.